COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00004 ENDMK
C⊗;

BEGIN "TEST"

	REQUIRE "GEOMES.HDR[CMS,LCS]" SOURCE_FILE;
	INTEGER B1,B2,B3,TMP1,TMP2,TMP3,TMP4;
	MKUNIV;
	B1←MKCUBE(3,3,3);
	B2←MKCUBE(1,1,1);
	B3←MKCUBE(1,1,1);
	BATT(B2,B1);
	BATT(B3,B1);
	TRANSL(B2,3,0,0);
	TRANSL(B3,3,0,0);
	TMP1←MKCOPY(TRAM(B1));
	TMP2←MKCOPY(TRAM(B2));
	GEODPY;
	INCHRW;
	  ROTATE(B1,0,0,1.57);
	  ROTATE(-B2,.57,0,0);
 	GEODPY;
	INCHRW;
	TMP3←MKCOPY(TRAM(B1));
	TMP4←MKCOPY(TRAM(B2));

	APTRAM(INTRAM(TMP1),TMP2);
	APTRAM(INTRAM(TMP3),TMP4);
	APTRAM(INTRAM(TMP1),TMP3);

	CVTRMV(TMP1);
	  ROTATE(-B3,YWC(TMP1),XWC(TMP1),ZWC(TMP1));
	GEOMED;

END "TEST";